home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aan.d64 / electronic diary (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  161 lines
  1. 0 GOSUB1000
  2. 1 REM THE ELECTRONIC DIARY V3.6
  3. 2 REM BY ZENYATTA
  4. 3 REM -----
  5. 4 REM :ZEN:
  6. 5 REM ^^^^^
  7. 6 :
  8. 7 :
  9. 8 :
  10. 9 :
  11. 10 POKE53280,4:POKE53281,0:GOSUB500,TITLE
  12. 11 GOSUB1005
  13. 12 PRINT"MAKE ENTRY
  14. 14 [153]"READ ENTRY":[153]"KILL ENTRY":[153]"SEE ENTRYS"
  15. 16 [153]"QUIT
  16. 17 PRINT"
  17. 18 [153]"CURSOR KEYS TO MOVE,
  18. 19 PRINT"',' TO SELECT.
  19. 20 A1$[178]"<":A2$[178]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMD<---------":A3$[178]" "
  20. 21 P$[178]""
  21. 22 X[178]1
  22. 23 [153][200](P$,32[170]X);A1$
  23. 24 [161]A$:[139]A$[178]""[167]24
  24. 25 [153][200](P$,32[170]X);A3$
  25. 26 [139]A$[178]","[167]34
  26. 27 [139]A$[178]""[167]X[178]X[171]1
  27. 28 [139]A$[178]""[167]X[178]X[170]1
  28. 29 [139]X[177]5[167]X[178]5
  29. 30 [139]X[179]1[167]X[178]1
  30. 32 [137]23
  31. 34 [153][200](P$,32[170]X);A2$
  32. 35 [141]1005
  33. 36 [145]X[137]100,200,310,350,300
  34. 98 [128]
  35. 99 [143] ENTER
  36. 100 [141]400
  37. 102 [153]"OPENING FILE..."
  38. 104 [160]15:[159]15,8,15
  39. 106 [159]1,8,2,"TED"[170]D$[170]",S,W"
  40. 107 [141]550
  41. 108 [141]500:[141]1005:[153]"FILE READY":[129]T[178]1[164]1000:[130]:[141]500
  42. 110 X[178]0:[153]">";:I$[178]"":X[178]X[170]1
  43. 112 [161]A$:[139]A$[178]""[167]112
  44. 113 [139]A$[178][199](20)[167]130
  45. 114 [139]A$[178][199](13)[167]140
  46. 115 [139]A$[178][199](17)[176]A$[178][199](29)[176]A$[178][199](145)[176]A$[178][199](157)[167]112
  47. 116 [153]A$;:I$[178]I$[170]A$
  48. 117 [139][195](I$)[177]30[167]120
  49. 118 [137]112
  50. 119 [143] WORD WRAPER
  51. 120 [129]I[178][195](I$)[164]1[169][171]1:[139][202](I$,I,1)[178]" "[167]K[178]I:I[178]1
  52. 122 [130]
  53. 123 B$[178]"":[129]I[178]K[170]1[164][195](I$):B$[178]B$[170][202](I$,I,1):[130]
  54. 124 [129]I[178]K[170]1[164][195](I$):[153][199](20);:[130]
  55. 125 I$[178][200](I$,([195](I$)[171]([195](I$)[171]K)))
  56. 126 [152]1,I$
  57. 127 X[178]X[170]1:[139]X[177]10[167]X[178]0:[141]500
  58. 128 [153]:[153]">";B$;:I$[178]B$:B$[178]""
  59. 129 [137]112
  60. 130 [139][195](I$)[178]0[167][141]1010:[137]112
  61. 131 I$[178][200](I$,[195](I$)[171]1):[153][199](20);:[137]112
  62. 140 [152]1,I$:[152]1,"END OF ENTRY"
  63. 141 [160]1
  64. 142 [141]500
  65. 143 [153]"FILE CLOSED":[129]T[178]1[164]1000:[130]:[137]10
  66. 198 [128]
  67. 199 [143] READ
  68. 200 [141]400
  69. 202 [153]"OPENING FILE..."
  70. 204 [160]15:[159]15,8,15
  71. 205 [159]1,8,2,"TED"[170]D$[170]",S,R"
  72. 206 [141]550
  73. 207 [141]500:[141]1005:[153]"FILE OK":[129]T[178]1[164]1000:[130]:[141]500
  74. 208 X[178]1
  75. 209 [132]1,I$
  76. 210 [139]I$[178]"END OF ENTRY"[167]250
  77. 211 [153]I$:X[178]X[170]1
  78. 212 [139]X[177]10[167]215
  79. 213 [137]209
  80. 215 [153]"(C)ONTINUED..."
  81. 216 [161]A$:[139]A$[178]""[167]216
  82. 217 [141]500:[137]208
  83. 250 [153]"*** END OF ENTRY ***":[141]1005
  84. 252 [160]1,15
  85. 253 [153]"PRESS ANY KEY TO CONTINUE"
  86. 254 [161]A$:[139]A$[178]""[167]254
  87. 255 [137]10
  88. 298 [128]
  89. 299 [143] QUIT
  90. 300 [141]500:[153]"GOODBYE!":[141]1000:[128]
  91. 309 [143] SCRATCH FILE
  92. 310 [141]500:[141]400
  93. 315 [141]500:[153]"DELETE "D$"? (Y/N)"
  94. 317 [161]A$:[139]A$[178]""[167]317
  95. 318 [139]A$[179][177]"Y"[175]A$[179][177]"N"[167][141]1010:[137]317
  96. 319 [139]A$[178]"N"[167][141]500:[141]1010:[153]"ABORTED":[129]T[178]1[164]1000:[130]:[137]10
  97. 320 [141]500:[153]"DELETING...":[141]1005
  98. 322 [160]15:[159]15,8,15
  99. 324 [152]15,"S:TED"[170]D$
  100. 325 [141]550
  101. 326 [141]500:[153]"VALIDATING BAM..."
  102. 327 [152]15,"V0:"
  103. 328 [141]550
  104. 329 [160]15:[141]500:[153]D$" DELETED.":[141]1005:[129]T[178]1[164]1000:[130]:[137]10
  105. 349 [143] DISK CATALOGER
  106. 350 [141]500:[153]"SKIPPING OVER BAM..."
  107. 352 [160]15:[159]15,8,15:[159]1,8,2,"$"
  108. 354 [141]550
  109. 355 [129]I[178]0[164]253:[161]#1,A$:[130]
  110. 356 [141]500:P[178]0
  111. 357 P[178]P[170]1
  112. 358 [161]#1,T$,A$,A$
  113. 359 B$[178]"":[129]L[178]3[164]18:[161]#1,A$
  114. 360 [139]A$[179][177][199](96)[167][139]A$[179][177][199](160)[167]B$[178]B$[170]A$
  115. 361 [130]
  116. 362 N$[178]B$:B$[178]""
  117. 363 :[129]I[178]1[164]11:[161]#1,A$:[130]:[139]P[179][177]8[167][161]#1,A$,A$
  118. 364 [139]T$[179][177]""[167][153][201](N$,8)
  119. 365 [139] ST [167] [160]1,15:[137]375
  120. 366 [139]P[177]7[167]368
  121. 367 [137]357
  122. 368 [153]"(C) CONTINUE"
  123. 369 [161]A$:[139]A$[178]""[167]369
  124. 370 [137]356
  125. 375 [153]"** END OF ENTRYS **":[141]1005
  126. 376 [153]"PRESS ANY KEY"
  127. 377 [161]A$:[139]A$[178]""[167]377
  128. 378 [137]10
  129. 399 [143] GET DATE
  130. 400 [141]500:[153]"ENTER DATE (MM/DD/YR):";
  131. 402 [159]1,0:[132]1,D$:[160]1:[153]
  132. 404 [139][195](D$)[179][177]8[167][141]1010:[137]400
  133. 405 [141]1005:[142]
  134. 498 [128]
  135. 499 [143] CLEAR SCREEN AND TITLE
  136. 500 [153]"LOADSYSTHE ELECTRONIC DIARY V3.6"
  137. 502 [142]
  138. 549 [143] DISK ERROR CHECKER
  139. 550 [132]15,A$,B$,C$,H$
  140. 552 [139][197](A$)[179]2[167][142]
  141. 554 [141]500:[141]1010
  142. 556 [153]"DISK ERROR:"
  143. 557 [153]"           "A$B$C$H$
  144. 558 [160]1,15
  145. 559 [144]
  146. 998 [143] SOUNDS:
  147. 999 [143] CLEAR SID CHIP
  148. 1000 [129]L[178]54272[164]54296:[151]L,0:[130]
  149. 1002 [142]
  150. 1004 [143] BELL SOUND
  151. 1005 [151]54296,15
  152. 1006 [151]54277,55:[151]54278,72
  153. 1007 [151]54273,51:[151]54272,97
  154. 1008 [151]54276,17:[129]T[178]1[164]200:[130]:[151]54276,16:[142]
  155. 1009 [143] BUZZER
  156. 1010 [151]54296,15
  157. 1011 [151]54277,48:[151]54278,64:[151]54273,12:[151]54272,75:[151]54275,14
  158. 1012 [151]54274,255
  159. 1013 [129]I[178]1[164]4:[151]54276,69:[129]T[178]1[164]10:[130]:[151]54276,64:[129]T[178]1[164]9:[130]T,I
  160. 1014 [142]
  161.